Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Utilities/ResGenie™ 1.0/ResGenie™/ResGenie™.rsrc/TEXT_205_movefileonert.txt

Text File | 1993-08-02 | 1.6 KB | 44 lines

set cursor to watch
if MovePathOne is MovePathTwo then
beep
close window MoveFileOne
do restext("TEXT", "Exit", colorauthoringpath)
end if
if there is not a window movefiletwo then
answer "Do you want to continue to copy resources to" &&¬
movefiletwo &"?" with "Yes" or "New"
if it is "Yes" then do restext("TEXT", "finishTwo", colorauthoringpath)
else do restext ("TEXT", "MakeTwo", colorauthoringpath)
do restext("TEXT", "Exit", colorauthoringpath)
end if
if word 1 of what is "Added:" then
beep
do restext("TEXT", "Exit", colorauthoringpath)
end if
put what into process
repeat with x = 1 to the number of chars in process
get char x of process
if it is ";" then put "," into char x of process
end repeat
put item 1 of process into ResType
if  ResType is "Empty" then do restext("TEXT", "Exit", colorauthoringpath)
put item 3 of process into ResID
CopyRes MovePathOne,MovePathTwo, ResType,ResID
if it is "Cancel" then do restext("TEXT", "Exit", colorauthoringpath)
if it is empty then do restext("TEXT", "Exit", colorauthoringpath)
if it is "Yes" then do restext("TEXT", "Exit", colorauthoringpath)
if it is "Error: Copy aborted" then do restext("TEXT", "Exit", colorauthoringpath)
put the text of window MoveFileTwo into TheText
put  process & return before line 1 of TheText
put "Added: " before char 1 of line 1 of theTEXT
set the text of window MoveFileTwo to TheText
if there is a window "Resource List" then
if  movefiletwo is "Current Stack" then
set the text of window "Resource List" to theTEXT
end if
end if
if there is a window holdstackname then
if "Browse: " & movefiletwo is holdstackname then
set the text of window holdstackname to theTEXT
end if
end if